home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / peanuts < prev    next >
Text File  |  2007-02-28  |  1KB  |  56 lines
  1. 0010 //* PROGRAM: PEANUTS *//
  2. 0020 //-PREPARE TO PLAY-//
  3. 0030 PRINT CHR$(147) //CLEAR SCREEN//
  4. 0040 PRINT "NOW WE ARE GOING TO PLAY"
  5. 0050 PRINT "'PEANUTS'."
  6. 0060 PRINT "HOW MANY GAMES SHOULD WE PLAY",
  7. 0070 INPUT MAX
  8. 0080 PRINT 
  9. 0090 PRINT "OK, HERE WE GO:"
  10. 0100 PRINT "IF YOU THINK I AM HOLDING"
  11. 0110 PRINT "AN ODD NUMBER OF PEANUTS"
  12. 0120 PRINT "THEN ENTER 1;"
  13. 0130 PRINT "BUT IF YOU THINK I AM HOLDING"
  14. 0140 PRINT "AN EVEN NUMBER OF PEANUTS"
  15. 0150 PRINT "THEN ENTER 0"
  16. 0160 PRINT 
  17. 0170 COUNTWIN:=0
  18. 0180 //
  19. 0190 FOR GAME:=1 TO MAX DO
  20. 0200 //-THIS IS THE GAME ITSELF-//
  21. 0210 PRINT "WELL, WHAT IS YOUR GUESS (0,1)",
  22. 0220 INPUT GUESS
  23. 0230 STAKED:=RND(1,8)
  24. 0240 PRINT 
  25. 0250 //-ODD OR EVEN-//
  26. 0260 IF OUTCOME=0 THEN
  27. 0270 PRINT "I AM HOLDING ",STAKED," PEANUTS"
  28. 0280 PRINT "I.E. AN EVEN NUMBER, ",
  29. 0290 ELSE 
  30. 0300 PRINT "I AM HOLDING ",STAKED," PEANUTS"
  31. 0310 PRINT "I.E. AN ODD NUMBER, ",
  32. 0320 ENDIF 
  33. 0330 //-WHO WINS?-//
  34. 0340 IF OUTCOME=GUESS THEN
  35. 0350 PRINT "SO YOU WIN."
  36. 0360 PRINT "CONGRATULATIONS!"
  37. 0370 COUNTWIN:=COUNTWIN+STAKED
  38. 0380 ELSE 
  39. 0390 PRINT "SO YOU LOSE."
  40. 0400 PRINT "I AM SORRY!"
  41. 0410 ENDIF 
  42. 0420 PRINT 
  43. 0430 IF GAME<MAX THEN PRINT "NEXT GAME:"
  44. 0440 ENDFOR GAME
  45. 0450 //
  46. 0460 //-FINAL RESULT-//
  47. 0470 PRINT "THANKS FOR THE GAME!"
  48. 0480 IF COUNTWIN>0 THEN
  49. 0490 PRINT "YOU WIN ",COUNTWIN," PEANUT(S)."
  50. 0500 ELSE 
  51. 0510 PRINT "YOU HAVE LOST ",-COUNTWIN," PEANUT(S)."
  52. 0520 ENDIF 
  53. 0530 PRINT 
  54. 0540 PRINT "COME AND PLAY SOME OTHER DAY."
  55. 0550 //-END OF PROGRAM: PEANUTS-//
  56.